10510 FORI=0TO24:POKE54272+I,0:NEXT:CT=0
10520 POKE54278,5:REM SUS/REL
10530 POKE54277,5:REM ATT/DEC
10540 POKE54276,129:REM NOISE WAVE
10550 POKE54295,241:REM RES & VOICE
10560 POKE54293,54:POKE54294,28
10570 READA:REM INPUT HI BYTE OF FREQ
10580 READB:REM INPUT LOW BYTE OF FREQ
10590 IFB=-1THEN10660:REM BRANCH AT END
10600 POKE54273,A:POKE54272,B
10610 FORT=1TO35:POKE54296,79:NEXT
10620 POKE54276,128:REM RELEASE CYCLE
10630 GOTO10530:REM GET NEW NOTE
10640 DATA17,37,19,63,21,154,22,227,25,177,28,214,32,94,34,175,34,255
10650 DATA-1,-1
10660 CT=CT+1:IFCT+1<6THENRESTORE:FORT=1TO100*CT:NEXT:GOTO10570
10670 POKE54296,0:REM TURN OFF VOL